void initparse(void)
{
   int r;

   if((fpc = fopen( fcode, "wt" )) == (FILE *)NULL ) {
       printf( "** can't open %s **\n", fcode);
       exit( 1 );
   }
   fputs( "\t.386\n\t.model\tflat,stdcall\n\t.code\nmain\tproc\n", fpc);
   
   if ( nrvar || nrlit ) {
         fputs( "\tfinit\n", fpc );
   }
   isymb = label = maxtop = top = -1;
   inf = ini = ouf = oui = (char)bug = eos = sd = 0;
   bstop = brk - 1;
   for( r = 0; r < 6; r++ ) {
        rbu[r] = (char)0;
   }
}